Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/buddy/cfbsrc.frm

Text File | 1996-04-16 | 8KB | 319 lines

VERSION 4.00
Begin VB.Form cfbsrc
   Caption         =   "WARNING:Changes made here may disable the Classy Form Buddy !"
   ClientHeight    =   5364
   ClientLeft      =   1236
   ClientTop       =   1548
   ClientWidth     =   10680
   Height          =   5688
   Left            =   1188
   LinkTopic       =   "Form1"
   ScaleHeight     =   5364
   ScaleWidth      =   10680
   Top             =   1272
   Width           =   10776
   Begin VB.TextBox CFDt
      Height          =   300
      Left            =   7452
      TabIndex        =   11
      Top             =   3492
      Width           =   1440
   End
   Begin VB.Frame frmMethod
      Caption         =   "frmMethod"
      Height          =   2556
      Left            =   2724
      TabIndex        =   10
      Top             =   564
      Width           =   6725
   End
   Begin VB.VScrollBar vsbMethod
      Height          =   2508
      Left            =   9660
      TabIndex        =   9
      Top             =   192
      Width           =   216
   End
   Begin VB.VScrollBar vsbProperty
      Height          =   2508
      Left            =   9276
      TabIndex        =   8
      Top             =   132
      Width           =   216
   End
   Begin VB.CheckBox CFBool
      Height          =   252
      Left            =   7416
      TabIndex        =   7
      Top             =   1884
      Width           =   204
   End
   Begin VB.TextBox CFGenString
      Height          =   300
      Left            =   7452
      TabIndex        =   6
      Top             =   3036
      Width           =   2856
   End
   Begin VB.TextBox CFGenNum
      Height          =   300
      Left            =   7428
      TabIndex        =   5
      Top             =   2364
      Width           =   1164
   End
   Begin VB.CommandButton btnMethod
      Caption         =   "Command1"
      Height          =   432
      Left            =   7428
      TabIndex        =   4
      Top             =   1248
      Width           =   1368
   End
   Begin VB.CommandButton btnGetProp
      Caption         =   "GetProperties"
      Height          =   432
      Left            =   7428
      TabIndex        =   3
      Top             =   660
      Width           =   1368
   End
   Begin VB.PictureBox pctMethods
      Height          =   2556
      Left            =   24
      ScaleHeight     =   2508
      ScaleWidth      =   7128
      TabIndex        =   2
      Top             =   2748
      Width           =   7176
   End
   Begin VB.CommandButton btnSetProp
      Caption         =   "Set Properties"
      Height          =   432
      Left            =   7428
      TabIndex        =   1
      Top             =   132
      Width           =   1368
   End
   Begin VB.PictureBox pctProperty
      Height          =   2556
      Left            =   24
      ScaleHeight     =   2508
      ScaleWidth      =   7128
      TabIndex        =   0
      Top             =   132
      Width           =   7176
   End
End
Attribute VB_Name = "cfbsrc"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
'{{clsName}}

Public gBase As New clsName
Private OldVal As Integer
Private OldMethVal As Integer




Private Sub btnGetProp_Click()
    'Call Property Procedures to set
    'values from gBase


End Sub

Private Sub btnMethod_Click()
'

End Sub

Private Sub btnSetProp_Click()
    'Call Property Procedures to return
    'values to set gBase


End Sub

Private Sub Form_Load()
    Set gBase = New clsName
    OldVal = 0
    OldMethVal = 0
    vsbProperty_Init
    vsbMethod_Init
    Exit Sub

End Sub

Private Sub vsbMethod_Change()
    Dim nCount As Integer
    Dim nInc As Integer

    nInc = OldMethVal - vsbMethod

    For nCount = 0 To Me.Controls.Count - 1
        If Me.Controls(nCount).Container.Name = "pctMethods" _
         And Me.Controls(nCount).Name <> "vsbMethod" Then
            Me.Controls(nCount).Top = Me.Controls(nCount).Top + nInc
        End If
    Next nCount

    OldMethVal = vsbMethod.Value
    Exit Sub

End Sub

Private Sub vsbProperty_Change()
    Dim nCount As Integer
    Dim nInc As Integer

    nInc = OldVal - vsbProperty

    For nCount = 0 To Me.Controls.Count - 1
        If Me.Controls(nCount).Container.Name = "pctProperty" _
         And Me.Controls(nCount).Name <> "vsbProperty" Then
            Me.Controls(nCount).Top = Me.Controls(nCount).Top + nInc
        End If
    Next nCount

    OldVal = vsbProperty.Value
    Exit Sub

End Sub
Private Sub vsbProperty_Init()
    Dim nCount As Integer
    Dim nMaxTop As Integer

    nMaxTop = 0
    For nCount = 0 To Me.Controls.Count - 1
        If Me.Controls(nCount).Container.Name = "pctProperty" Then
            If Me.Controls(nCount).Top > nMaxTop Then
                nMaxTop = Me.Controls(nCount).Top + Me.Controls(nCount).Height
            End If
        End If
    Next nCount

    If nMaxTop < pctProperty.ScaleHeight Then
        vsbProperty.Visible = False
    Else
        vsbProperty.Max = nMaxTop - pctProperty.ScaleHeight
        vsbProperty.SmallChange = vsbProperty.Max / 10
        vsbProperty.LargeChange = vsbProperty.Max / 2
    End If
    Exit Sub

End Sub
Private Sub vsbMethod_Init()
    Dim nCount As Integer
    Dim nMaxTop As Integer

    nMaxTop = 0
    For nCount = 0 To Me.Controls.Count - 1
        If Me.Controls(nCount).Container.Name = "pctMethods" Then
            If Me.Controls(nCount).Top > nMaxTop Then
                nMaxTop = Me.Controls(nCount).Top + Me.Controls(nCount).Height
            End If
        End If
    Next nCount

    If nMaxTop < pctMethods.ScaleHeight Then
        vsbMethod.Visible = False
    Else
        vsbMethod.Max = nMaxTop - pctMethods.ScaleHeight
        vsbMethod.SmallChange = vsbMethod.Max / 10
        vsbMethod.LargeChange = vsbMethod.Max / 2
    End If
    Exit Sub

End Sub

Public Property Get CFGenNumVal() As Variant
On Error GoTo ErrorHandler:
    CFGenNumVal = CVar(CFGenNum.Text)
    Exit Property

ErrorHandler:
    CFGenNumVal = CVar(0)
    Exit Property
End Property

Public Property Let CFGenNumVal(vLet As Variant)
On Error GoTo ErrorHandler:
    CFGenNum.Text = Val(vLet)
    Exit Property

ErrorHandler:
    CFGenNum.Text = Err.Description
    Exit Property

End Property

Public Property Get CFGenStringVal() As Variant
On Error GoTo ErrorHandler:

    CFGenStringVal = CVar(CFGenString.Text)
    Exit Property

ErrorHandler:
    CFGenStringVal = CVar("")
    Exit Property

End Property

Public Property Let CFGenStringVal(vLet As Variant)
On Error GoTo ErrorHandler:
    CFGenString.Text = CStr(vLet)
    Exit Property

ErrorHandler:
    CFGenString.Text = Err.Description
    Exit Property

End Property


Public Property Get CFBoolVal() As Boolean
On Error GoTo ErrorHandler:
    CFBoolVal = CInt(-1 * CFBool.Value)
    Exit Property

ErrorHandler:
    CFBoolVal = 0
    Exit Property

End Property

Public Property Let CFBoolVal(vLet As Boolean)
On Error GoTo ErrorHandler:
    CFBool.Value = -1 * CInt(vLet)
    Exit Property

ErrorHandler:
    CFBool.Value = 0
    Exit Property

End Property
Public Property Let CFDtVal(dLet As Date)
On Error GoTo ErrorHandler:
    CFDt.Text = CStr(dLet)
    Exit Property

ErrorHandler:
    CFDt.Text = Err.Description
    Exit Property

End Property

Public Property Get CFDtVal() As Date
On Error GoTo ErrorHandler:
    CFDtVal = CDate(CFDt.Text)
    Exit Property

ErrorHandler:
    CFDtVal = CDate("08/31/1955")
    Exit Property

End Property